home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 001 / qzapsrc / !QZap_c_QClosewind < prev    next >
Encoding:
Text File  |  1994-10-31  |  464 b   |  27 lines
  1. /*
  2.  * Closewindow.c
  3.  */
  4.  
  5. #define QClosewindow
  6.  
  7. #include "QMain.h"
  8. #include "QClosewindow.h"
  9.  
  10. void Closewindow(wimp_block *Block)
  11. {
  12.   bool viewer;
  13.   int dummy;
  14.  
  15.   viewer=FALSE;
  16.   for (dummy=0; dummy<MaxViewers; dummy++) {
  17.     if (Viewers[dummy] == Block->close.w) {
  18.       wimp_close_window(Viewers[dummy]);
  19.       wimp_delete_window(Viewers[dummy]);
  20.       Viewers[dummy]=NULL;
  21.       viewer=TRUE;
  22.     };
  23.   }
  24.   if (viewer==FALSE) wimp_close_window(Block->close.w);
  25. }
  26.  
  27.